home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / cmln0885.arc / LETTERS1.LTG < prev    next >
Text File  |  1986-02-27  |  128b  |  7 lines
  1. letters listing 1
  2.  
  3.  
  4. : TORIAL  DUP 1 = IF DUP * ELSE DUP 1 - MYSELF * THEN ;
  5.  
  6. : FAC  (N -- N!)  TORIAL ;
  7.